(Fclear_string): Put call to CHECK_STRING in correct place.

diff --git a/src/fns.c b/src/fns.c
index cbd0dc91d2bf5f6f1ba5780757e1f9622dd5621e..4dd04bf0b503fa5e894a197b006893156c2c46e1 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -2370,8 +2370,8 @@ This makes STRING unibyte and may change its length.  */)
      (string)
      Lisp_Object string;
 {
-  CHECK_STRING (string);
   int len = SBYTES (string);
+  CHECK_STRING (string);
   bzero (SDATA (string), len);
   STRING_SET_CHARS (string, len);
   STRING_SET_UNIBYTE (string);